From 06739540286ab43f049235a253228dc7e0b3fcf3 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 14 Dec 2002 23:30:36 +0000 Subject: [PATCH] (compile-reinitialize-errors): Don't mark the buffer as modified unless it really is. --- lisp/progmodes/compile.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 44f1178c112..f202663a0e4 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1564,6 +1564,7 @@ Does NOT find the source line like \\[next-error]." (let ((inhibit-read-only t) (buffer-undo-list t) deactivate-mark + (buffer-was-modified (buffer-modified-p)) (error-list compilation-error-list)) (while error-list (save-excursion @@ -1571,7 +1572,8 @@ Does NOT find the source line like \\[next-error]." (progn (end-of-line) (point)) '(mouse-face highlight help-echo "\ mouse-2: visit this file and line"))) - (setq error-list (cdr error-list)))) + (setq error-list (cdr error-list))) + (set-buffer-modified-p buffer-was-modified)) ))))) (defun compile-mouse-goto-error (event) -- 2.30.2